From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 May 1993 00:21:23 +0000 (+0000)
Subject: (make_lispy_event): Don't set shift modifier for C-^.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96304
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1a40d27fa251a6e805355d7f73093155b8e33057;p=emacs.git

(make_lispy_event): Don't set shift modifier for C-^.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 3e8a522a073..09305ff1451 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2093,7 +2093,10 @@ make_lispy_event (event)
 	if ((event->modifiers & ctrl_modifier)
 	    && c >= 040)
 	  c |= ctrl_modifier;
-	if (XFASTINT (event->code) < 040
+	/* Set the shift modifier for a control char
+	   made from a shifted letter.  But only for letters!  */
+	if (XFASTINT (event->code) >= 'A' - 0100
+	    && XFASTINT (event->code) <= 'Z' - 0100
 	    && (event->modifiers & shift_modifier))
 	  c |= shift_modifier;
 	c |= (event->modifiers